1 .
2 .RND (ART)
3 .BY SUPER SOFTWARE
4 .BOX 702
5 .PLAINFIELD, NJ 07061
6 .
7 .PRESS 'GO' TO CLEAR
8 .
9 clear 
10 X=rnd (42);line X,X,4;line -X,X,3;line X,-X,3;line -X,-X,3;line X,X,3
15 if &(23)run 
20 Y=rnd (42);line Y,Y,4;line Y,-Y,3;line -Y,Y,3;line -Y,-Y,3;line Y,Y,3
30 if rnd (7)=1BC=rnd (256);FC=BC+12+rnd (8)mul 32
40 if rnd (5)=1A=rnd (8)mul 10;box 0,0,A,A,rnd (2)+1
50 if rnd (5)=1gosub 100
60 goto 10
100 A=rnd (20); B=rnd (20);C=rnd (20)mul 2;box A,B,C,C,3;box -A,B,C,C,3;box -A,-B,C,C,3;box A,-B,C,C,3;return 
150 line -Y,-Y,3
